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PASSREAD_REAL_D Read a D_floating value 18-Sep-19 4 9} :38:7 AXx-1 


at V4.0-74 Page 1 
14-Sep-1984 12: CJPASRE ) 


1 
PASRTL.SRCJPASREARED.B52; 1 (1 


| 

1 @ MODULE PASSREAD_REAL_D ( TTITLE "Read a D_floating value: 

O08 IDENT = '1-00 !File: PASREARED.B32 Edit: SBL1002 

00% BEGIN | 
4 PITITILILILTLLI LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL 

Ve | 

008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY | 

009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


't ALi RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE pitied NOTICE. THIS SOFTWARE OR ANY a 


we 

® 

® 

ww 

® 

® 

® 

® 

i E PR A . 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 

is THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE ®* 
i® AND SHOULD NOT BE CONSTRUED AS A COMMIT T # 
i CORPORATION. ‘ 
® 

® 

*® 

* 

® 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
’ MENT BY DIGITAL EQUIPMEN 
1} 

: '® DIGITAL ASSUMES NO gt 
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1 
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IBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See RARER AREA AERA ARREARS 
J 


ABSTRACT: 


This module contains procedures which read a D_floating value 
from a textfile or a string. 


' 
} 
i 
i 
; ENVIRONMENT: User mode - AST reentrant 
i 
i 
i 
i 
i 
i 
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WWAWAIA AAAI AID POPUPONGPUNININID 2 2 PO OO Oe a 
CoN AUS WN OOOO NAME WN SQ ODOONOUS UNO 


AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 


1-001 = Original. SBL_1-April-1981 
1-002 - Use PASSSEND_READ. SBL 26-May-1982 


NOME WN SHO OODNA UE WN OO DNAUS WN S(O OONAUES WN“ OOONOUS WN 
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| 

} 

| 

++ | 
FACILITY: Pascal Language Support | 
| 

| 
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PASSREAD_REAL_D Read a D_floating value 16-Sep-1984 01:58:3 AX-11 Bliss-32 V4.0-74 Page 
1-002 ~ “ DeclaratTons ° 19-808-138¢ 93:29:28 PASRTL. RESPASREARED 69251 . 25 | 
3 4 28 } ¥SBTTL ‘Declarations’ 
: i 29 } PROLOGUE DEFINITIONS: 
; 052 1 | 
: 33 9? \ REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures | 
: 6 118 1! 
; 57 11 1 ! TABLE OF CONTENTS: 
; #8 120 1! 
; 121 1 
: 60 1 ¢ 1 FORWARD ROUTINE 
; 61 1 1 PASSREAD_REAL_D: CALL_VALO1 NOVALUE ! Read from textfile 
; 6¢ oi 41 PASSREADV_REAL_D: CALC_VALO1 NOVALUE; i Read from string 
se $158 ' 
3; 6 0127 1 ! MACROS: 
; 66 0128 1! 
3; 67 B16? 1! NONE 
; «668 0130 1! 
: 69 bis 1 ! EQUATED SYMBOLS: 
; 01 . 1! 
: 71 0135 1! NONE 
; 0134 1! 
3 0135 1 ! FIELDS: 
; 0136 1! 
; O13? 1! NONE 
3; 0138 1! 
; 77 0139 1 ! OWN STORAGE: 
; 0140 1! 
. 0141 1! NONE 
; 80 0142 1! 


nN 8 
PASSREAD_REAL_D Read a D_floating value 16-Sep-1984 01:58:3 AX-11 Bliss-32 V4.0-74 Pa 
1-002 ASSREAD_REAL_D : Read an D_floating value from 14-Sep-19 4 95:38:28 PASRTL. RESPASREARED 682; 1 a 
Ht ZSBITL "PASSREAD_REAL_D = Read an D_floating value from textfile' ; 
GLOBAL ROUTINE PASSREAD_REAL_D ( 3 

4 PFV: REF SPASSPFV_FICE_VARIABLE, ! File variable : 

5 ERROR; : Error unwind address : 
86 LO_RESULT, ' Low order part of result ; 
87 HI RESULT ! High order part of result : 
He ) : CACL_VALO1 NOVALUE= ‘ 
90 t+ : 
4! FUNCTIONAL DESCRIPTION: : 
9 This function reads an D_floating value from the specified textfile ; 
oe and returns it as the function value. ‘ 
38 CALLING SEQUENCE: 
38 Double.wd.v = PASSREAD_REAL_D (PFV.mr.r C, ERROR. ja.rJ) 

, FORMAL PARAMETERS: 

2 PFV - The Pascal File Variable (PFV) passed by reference. 

3 The structure of the PFV is defined in PASPFV.REQ. 

ERROR - Optional. If specified, the address to unwind to 


in case of an error. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

The D_floating value of the number read. 
SIDE EFFECTS: 

If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 


INVSYNREA = invalid syntax for real value 
NOTVALTYP = “‘string’’ is not a value of type ‘‘type"’ 


CSOCSOOOOSOSOOOSCOSOSCOSOSOSOSOSOSOSOSSOSOSCOSOSOSOSOOOSCOOOCOOOOO OOOO OOOOOOOOOO «(6UFD 
SIwtwIwistiaimtiawtaiiadatiaimiaiaiataiaiaiabai aati aati aad dabadad abated aD adadadadeadabad adabadadad adadabadadad 
WOOOOO OOO WO009 000900 09 09 09 09 09 SII SI NINN NNSA AAA AA AAA AMM NIIUIIUTII 


PRoPonononononony — — ts 


Be Se Oe Ge Be Be Ss Be Se Se Se Se Be Se Se Ge FH Ss Se Ge Se Ge Se Ge Se Ge Ge Se Se Ge Se Ss Ge 5s Se FHSS Se FHS SH Se Se SESE SESH Sees ee Se Se Se Sees 


ee ed ed ee ed ee cae ee ee ea ee ee ee a a a ee ae a ce ee ee de ed a ed 
WWAWWNIWINI AINA DRIPUPINININPIPINIDY 9 9 OO SS S" OOOO OCOCOOCOCOO 
BISVSUNSSSSRVSEGRAS LS SeVSnranv—oSwenenr 


BEGIN 
LOCAL 
RESULT: VECTOR (2, LONG], ! D_floating result value 
DESCR: BLOCK £8 BYTE ' Descriptor for convert 
FCB: REF $PAS$FCB CONTROL_BLOCK,! File Control block 
PFV_ADDR: VOLATIL Enable argument 
! En 


L ° 
UNWIND_ACT: VOLATILE, able argument 


REN cere —_--—- — —- ~--- —— _—> 
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PASSREAD_REAL_D Read a D_floating value bese 1984 01:58:3 AX-11 Bliss-32 V4.0-74 Page 4 
sab05 PASSREAD_REAL_D Read an D_floating value from 14-Sep-19 4 358932 PASRTL  SREIPASREARED. B92: 1 (3) 
i $0 ERROR_ADDR: VOLATILE; ! Enable argument | 
4 As BUILTIN 
2 8 ACTUALCOUNT; ! Count of arguments | 
4 0 ENABLE 
Z 8 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enatle error handler 
4 0 '¢ 
: Get ERROR parameter, if present. | 
} : 
: 4 ACTUAL COUNT () GEQU 2 
5 ERROR_ADDR = .ERROR; ! Set unwind address | 
2 PFV_ADDR = PFV CPFVSR_PFVI; ' Set PFV address | 
5 1 + 
2 } Validate PFV and get PFV. 
6 2 | 
° § PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
6 '¢ 
? Set unwind action to unlock file. 


\s 
: Do common initialization. | 
PASSSINIT_READ (PFV CPFV$R_PFVJ, FCB CFCBSR_FCBJ; FCB); | 
RESULT = 0; i 
4 | 
} 
| 
| 


Set up string descriptor for convert call. 


DESCR CDSC$B_CLASS] 
DESCR CDSCS$B_DTYPE) 


0.00 00 G0 09 00 G9 00 09 09 SI NI NINN NNN OOO 
BLe SSS RRS SS SSNS ARAN SSS SSO SSeS ese eeesy 


'¢ 
' Call utility routine to find a string that looks Like an real. 


;_If we can't find one, signal an error. 
‘igi | 
| 


a a a a dd a ad kd = od = od = = a as 


e 
; 
2 
§ UNWIND_ACT = PASSK_UNWIND_UNLOCK; 
2 
2 
2 
2 
2 
: 
2 
: 


No ee eee eee eee ee eee elololeololololololololololololololololol elo =o) 
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IF NOT PAS$SGET_REAL (PFV CPFVSR_PFV), FCB CFCBSR FCB); 
wenreseh CDSCSA_POINTERJ, DESCR-CDSC$W_LENGTHJ, FCB) 
9 P SPASSIO_ERROR (PASS INVSYNREA,2,DESCR, | | 
3 -FCB CFCBSL_RECORD_NUMBERI); ! Invalid syntax | 
9 '¢ 


-TITLE PASSREAD_REAL_D Read a D_floating value 
ENT \1-002\ 


~-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


-BYTE 6 ‘ 
sASCII \DOUBLE\ : 


-EXTRN PASS$READ_REAL_D 
»EXTRN PASSSI0"NANDLER D 


06 
45 4C 42 55 4F 44 


PASSREAD_REAL_D Read a D_floating value 1$-se 758: AX-11 Blis Page 
1-002 PASSREAD_REAL_D : Read an D_floating value from 12: 730071382 93:39 251: PASRTL.SRC affpas ASREA 0 B82; 31 . (33 
3; 7 0257 ' Call convert routine. If it fails, signal an error. | 
; 138 34 lo . 
; 198 5 
; 199 60 IF NOT OTSSCVT_T_D (DESCR, RESULT) 
; OF P 8) “s "SPASS10 a (PASS NOTVALTYP 3,DESCR | 
: 90¢ P 0968 PUTT BYTE (ZCHARCOUNT (“DOUBLE®). “DOUBLE'), | 
: 0 0264 Urte CFCBSL_RECORD_NUMBER])); 
: 204 0265 | 
; 205 B¢o8 14 
; 206 0267 ! Do end-of-READ processing. 
s gor 0268 le 
> 208 0269 | 
; % 8 4! PASSSEND_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCBI); 
; 311 0978 2 1+ 
3 \¢ 0273 2 ! Return result. 
; 0274 $ te 
> 214 0275 
: 215 0276 2 LO_RESULT = .RESULT [0]: | 
; 216 0277 2 I-RESULT = .RESULT (1); 
; ev” 0278 § URN; 
; 218 0279 
; 29 0280 1 END; ! End of routine PAS$READ_REAL_D 
| 
| 
| 


-EXTRN PASSSINIT READY TOASSSGET REAL 

-EXTRN PASS$SSIGNAL, P PASS$K_ INVSYNREA 

~EXTRN Orese VT_T_D, rasan. ~NOTVALTYP 

~EXTRN PASSSEND REA 
03FC 00000 - ENTRY Scemiartaae te Save R2,R3,R4,R5,R6,R7,R8,- 
00002 MOVAB PASSSSIGNAL., RO 


CLRL ERROR_ADDR 
CLRQ os UE) 


3B) | 
1$ 
Bren ERROR_ADDR 
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ODOooma &rom 
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Oooooooooceo 


59 000000006 
5E C 


o 
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S 
S 
=) 
“ 
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o 
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04 
007A 


04 
; 000000006 


1$: MOVL 


JSB PASSSVATIDATE PFV 
MOVL #1, UNWIND_ACT 


6D 
02 
6E 08 
56 
0& AE 
04 
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PASSREAD_REAL_D Read a D_floating value 16-Sep-1984 01:58:3 AX-11 Bliss-32 V4.0-74 Page 
at PASSREAD_REAL_D : Read an D_floating value from 1228687138 38h sag PASRTL.SRCIPASREARED.B 231 ° aS 
000000006 00 16 90 1 JSB PASSSINIT_READ : 0234 ; 
14 AE 04 00037 CLRL RESULT : 0 36, ; 
OE AE 010 F BO 0003A MOVW oft DESCR+2 7 0243) : 
000000006 00 16 00040 JSB PASSS$GET_REAL ; 0251 | ; 
10 AE 4 D0 00046 MOVL 4, DESCR+4 : | ’ 
0c AE 2? B0 004A MOVW RS, DESCR : | ; 
1 0 € O04 BLBS RQ 2s : ; 
C8 A? DD 0005 PUSHL -56(FCB) > 0254 ; 
10 AE 9F 00054 PUSHAB DESCR : ; 
02 DD 00057 PUSHL # : ; 
7E 00G 8F 9A 00059 MOVZBL #PASS$K_INVSYNREA, =(SP) : | : 
69 04 FB 9003 CALLS #4, PASSSSIGNAL : ; 
04 00060 RET : | ; 
14 AE 9F 00061 2$ PUSHAB RESULT ; 0260) ; 
10 AE 9F 00064 PUSHAB DESCR : ; 
000000006 00 02 FB 00067 CALLS #2, OTSSCVT_T_D : ; 
13 50 £8 0006E BLBS : : 
C8 A? DD 90071 PUSHL -56(FCB) > 0264 r 
82 AF 9F 00074 PUSHAB P.AAA : ; 
14 AE 9F 00077 PUSHAB DESCR : ; 
03 DD O007A PUSHL # : : 
7E 006 8F 9A 0007C MOVZBL #PASS$K_NOTVALTYP, -(SP) : : 
69 05 FB 00080 CALLS #5, PASS$SIGNAL : ; 
04 00083 RET : ; 
000000006 00 16 00084 3$: JSB PASS$SSEND_READ ; 0270 ; 
50 14 7D 0008A MOVQ RESULT, CO_RESULT 3 0276 ; 
04 0008E RET . ; 0280 ; 
0000 OO08F 4$: «WORD Save nothing : 0192 F 
50 08 aC 00 00091 MOVL (AP), : F 
50 04 Ad DO 00095 MOVL  4(RO), RO : ; 
E4 AQ 9F 00099 PUSHAB ERROR_ADDR : ; 
E8 AO 9F 0009C PUSHAB UNWIND ACT : ; 
EC AQ 9F 0009F PUSHAB PFV_ADBR : : 
03 DD 000A2 PUSHL #3 : ; 
5E DD OO0A4 PUSHL SP ; 
7E 04 AC 7D 000A6 MOVa 4 (AP), -(SP) ; 
000000006 00 03 FB QOOAA CALLS #3, PAS$$IO_HANDLER : 
04 00081 RET ; 


; Routine Size: 178 bytes, Routine Base: _PASSCODE + 0007 


; 220 0281 1 
221 0282 1 !<BLF/PAGE> 


| 
j 
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PASSRCAD REAL _D Read a D floating value 1b-sep-19 4 0}: 38:28 AX-1 
1-002 PASSREADV_REAL_D= Read a D_floating from string 14-Sep-1984 12:51:4 


1 ZSBTTL "PASSREADV_REAL_D=- Read a D_floating from string’ 
GLOBAL ROUTINE PASSREADV £ ay dD ¢ 
STRING: REF BLOCR C, BYTE], 
ERROR; 
LO_RESULT, 
HI RESULT 
) : CACL_VALO1 NOVALUE = 


1 a A Ph eles Page 7 
PASRTL.SRCJPASREARED.B352;1 (4) 


c2C0 CO 
Ww 


fo] 
DOONAN WN 0 DOONAN EWN 2 9 OO NAME WW 0 OD NAUE WRN 0 ODNAY SWINOOONOUS 


String descriptor 

Error unwind address 

Low order part of result 
High order part of result 


++ 
FUNCTIONAL DESCRIPTION: 


This function reads a D_floating from the specified string 
and returns it as the function value. 


CALLING SEQUENCE: 
Double.wd.v = PASSREADV_REAL_D (STRING.mt.ds C, ERROR. ja.rJ) 
FORMAL PARAMETERS: 
STRING - The string to read from 


3 passed as a class §S 
(assumed) descriptor. The length and pointer 
are updated to reflect the unread string. 


ERROR - Optional. If specified, the address to unwind to 
in case of an error. 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: | 
NONE 

ROUTINE VALUE: 
The value of the D_floating read. 

SIDE EFFECTS: | 

| 


BAAN ASAI BS BE EEE PW 


o INS 
—OOONAUESWN $$ OOONAUES WN OVDONAUES AN“ OOONOULSW 


wr 


64 NONE 

66 SIGNALLED ERRORS: 

6 | 
6 NONE | 
6 | 
7 - 
7 
7 BEGIN | 
7 


Pascal File Variable 
Argument List 

ADDR: VOLATILE, Enable argument 
UNWIND_ACT: VOLATILE, Enable argument 
ERROR_ADDR: VOLATILE; ! Enable argument 


CAL 
PFV: SPASSPFV PALE grt 
oe LIST: VECTOR be. LONGI, 
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PASSREAD -REAL_D Read a D floating value 
1-002 2k 


F 9 
16-Sep-1984 01:58:3 Ax-11 Bliss-32 V4.0-74 Pp 
PASSREADUREAL.D? Read-a D_floating from string 1e-sep-1984 12:51 148 age 45 


PASRTL.SRCJPASREARED B32; 1 (4) | 


40 

4 BUILTIN 

2 ACTUALCOUNT; ! Count of arguments 

4 ENABLE | 
ri PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 

4 


14 
Get ERROR parameter, if present. 


A RCTUALCOUNT () GEQU 2 
ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVSR_PFVI; ! Set PFV address 


1+ 
Set up ARG_LIST. 


OOOCOCGCOOCCCOCCOCOCOCCOOCOCOCOC OOO OOOOOOCOOCOOCOOOoOO 

WAW AWWA WANA AAA Aw 
HPAES OSMAN VIVIVIVIA SE & 

PWN $9 OONAUE WN “OC OONAOULSWR' "OO DOONOUS WR 


Be Se Se Oe oe FH Ss Be ee Se Se Se Os Fe Se Se Ge Se Se Fe Se Oe Se Ot Se Se Se Se ae SH SS Se Se Se we 


| 
; | 
| 
| 
| 
| 
| 


; ARG_LIST (0) = 1; ! One argument 
ARG_LIST C1) = PFV CPFVSR_PFV); i PFV address 
' Call PAS$S$DO_READV to do the work, giving it the address of 
g j _PASSREAD -REAC_D to call. 
2 
2 PASSSDO READY (PFV CPFVS$R_PFV], .STRING, ARG_LIST, PASSREAD_REAL_D; 
, : LO_RESULT, HI_RESULT); 
§ RETURN; 
7% «1 END; ! End of routine PASSREADV_REAL_D 
.EXTRN PAS$S$DO_READV 
005¢ 00000 .ENTRY PASSREADV _REAL_D, Save R2,R3.R4,R6 : 0284 
5E 20 C2 00002 SUBL2 #32, ; 
7E D4 00005 CLRL. ERROR ADDR : 0332 
9 AE 7C 8008! CLRO 25. (re) ACT : | 
6D 0030 CF DE OOO0A MOVAL ; 
02 6C 91 0000F CMPB ab) | : 0351 
04 1F 00012 BLSSU : 
66 08 ac dO 90014 MOVL ERROR, ERROR_ADDR > 0353 
08 AE 14 AE 9 018 1$: MOVAB PFV, PFV_ADDR : 0355 | 
OC AE 01 p 0001D MOVL 4a ARG cis! ; 0361 
10 AE 14 AE 9E 00 1 MOVAB LIST+4 : 0 62 | 
54 FF24 CF 9E 00026 MOVAB PeSéatas “REAL _D, R4 : 0369 
53 OC AE 9E 00 B MOVAB ARG_LISTT R3 ~ ; 
36 14 AE 3 O2F MOVAB ; 
5 04 AC D0 000 3 MOVL STRING ; 
000000006 00 16 000 JSB SASS3G6_ READY ; | 
04 0003p RET > 0374 | 
! 


PASSREAD_REAL_D Read a D floating value 18-se 4 73 AX-11 Bliss-32 v4.0-74 Page 9 
1-002 PASSREADO REAL ‘De Read. a D floating from string 1 sets 93: 3F: ig PASRTL. SRCIP PASREARED.B32;1 ’ (4) | 
000 3— 2$: WORD ave nothin 3; 0332) 

50 08 ACD ib ov. BCABD, RO . : 

4 A 44 MOVL 4(RO), R r 

of A F 48 PUSHAB ERROR_ADDR 3 

E A F 4B PUSHAB UNWIND ACT r 

E4 A F 4 PUSH PFV ; 

g DD 0005 PUSHL #3 : 

E bo 005 PUSHL é 

7E 04 Ag D 0005 MOVQ 4( -(§ ; 

000000006 00 03 FB 00059 CALLS #3, PAS$$IO_HANDLER § 

04 00060 RET 3 


; Routine Size: 97 bytes, Routine Base: _PASSCODE + 0089 


0375 1 
0376 1 !<BLF/PAGE> 


H 9 


Elapsed Time: :29.6 
Lines/CPU Min: i ; 
yovenen (Se -aeas 1356 

Used: 86 pages 


ree Bs wey Complete 


PASSREAD_REAL_D Read a D floating value 16-8 ep-1984 :3 AX-11 Bliss-32 V4.0-74 © 10) PA 
1-002 PASSREADY REAL ‘De Read. a D_floating from string 14-Sep- 38 93: 3F: 8 PASRTL. SRC PASREA AReD B82;1 ~_ (5) | 
: 35 0378 } 1 END ! End of module PASSREAD_REAL_D ; 
: 320 45} ELUDOM | ; 
; 
; 
; PSECT SUMMARY | 
; Name Bytes Attributes 
; PASSCODE 282 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | : 
$ 
: Library Statistics | : 
ire segs eee eee Syabols eo<ce<s- Pages Processing | : 
: File Total Loaded Percent Mapped Time : 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 6 0 581 00:01.0 | : 
: ~$255$0UA28:CPASRTL.OBJJPASLIB.L32;1 427 100 23 33 00:00.4 | : 
: COMMAND QUALIFIERS : 
: FLISS/ERECR SP SELB, INET IAL OPT ERLE) /MOTRACE/L ESH1. 15S cPASREARED/GB.J=OB IS : PASREARES MSRC$:PASREARED/UPDATE=(ENHS$: PASREARED : 
Size: 275 code + 7 data bytes ; 
Run Time: 9:07.53 ; 
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